Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/t3_1/risc_src.lha/risc_sources/sys/mac_files.t

Text File | 1989-06-30 | 8KB | 283 lines

(herald vmfiles)

;;; Copyright (c) 1985 Yale University
;;;     Authors: N Adams, R Kelsey, D Kranz, J Philbin, J Rees.
;;; This material was developed by the T Project at the Yale University Computer
;;; Science Department.  Permission to copy this software, to redistribute it,
;;; and to use it for any purpose is granted, subject to the following restric-
;;; tions and understandings.
;;; 1. Any copy made of this software must include this copyright notice in full.
;;; 2. Users of this software agree to make their best efforts (a) to return
;;;    to the T Project at Yale any improvements or extensions that they make,
;;;    so that these may be included in future releases; and (b) to inform
;;;    the T Project of noteworthy uses of this software.
;;; 3. All materials developed as a consequence of the use of this software
;;;    shall duly acknowledge such use, in accordance with the usual standards
;;;    of acknowledging credit in academic research.
;;; 4. Yale has made no warrantee or representation that the operation of
;;;    this software will be error-free, and Yale is under no obligation to
;;;    provide any services, by way of maintenance, update, or otherwise.
;;; 5. In conjunction with products arising from the use of this material,
;;;    there shall be no use of the name of the Yale University nor of any
;;;    adaptation thereof in any advertising, promotional, or sales literature
;;;    without prior written consent from Yale in each case.
;;;

(block
  (define *vm-modules*
          '((osys mackernel)
            (osys unm68kernel)
        (osys m_dispatch)
            (t3_primops mconstants)
            (osys m68lap)
            (t3_primops locations) ;++ talk to RK about this
                                      ; operation needs locations
            (osys vm_boot)
            (osys kernel)

            ;; Continuation stuff
            (osys handler)   ; must occur before any DEFINE-HANDLER
            (osys frame)
            (osys throw)
            (osys operation)       ; kernel needs %operation

            ;; VM error system
            (osys error)
            (osys unix_sys5)
            (osys unix_fault)

            ;; Primitive procedures
            (osys fixnum)
            (osys list)
            (osys map)        ; uses list
            (osys character)  ; uses list
            (osys string)     ; uses list, character
            (osys vector)     ; uses list
            (osys symbol)     ; uses string
            (osys struct)     ; uses list

            ;; closed compiled primops
            (t3_primops m68primops)
            (t3_primops m68arith)
            (t3_primops m68low)
            (t3_primops predicates)
            (t3_primops open)
            (t3_primops aliases)
            (t3_primops carcdr)
        (t3_primops genarith)

            ;; Storage management
            (osys weak)
            (osys free)
            (osys pool)
            (osys string_buf)
            (osys table)
            (osys table_entry)
            (osys table_util)
            (osys weak_table)
            (osys hash)        ; must come after weak_table
            (osys inf_vector)

            ;; VM file system
            (osys buffer)
            (osys port_op)
            (osys unix_vmport)
            (osys vm_port)

            ;; VM system
            (osys environment)  ; must preceed any DEFINE-SYNTAX
            (osys vm_system)))

  ;;; Closed compiled versions of primops.  In a system which doesn't
  ;;; contain an interpreter these files are not necessary.

  (define *closed-compiled-primops*
          '((t3_primops m68constants)
            (t3_primops m68primops)
            (t3_primops m68arith)
;++            (t3_primops locations)  ; setter is closed compiled
            (t3_primops m68low)
            (t3_primops predicates)
            (t3_primops open)
            (t3_primops aliases)
            (t3_primops carcdr)
            ))

  ;;; Z system

  ;;; The Z system depends only on the VM
  (define *z-system-modules*
          '((osys zread)
            (osys zprint)
            (osys zeval)
            (osys zload)          ; not neaded if loader is not present
            (osys zsystem)))

  (define *bootstrap-z-system*
    (append *vm-modules*
            *z-system-modules*))

  ;;; Garbage collector, scanner, suspender

  (define *garbage-collector*
          '((osys scanner)
        ;    (osys gc_auxiliary)
        ;    (osys suspender)
            (osys unix_gc)
            (osys gc_weak)
            (osys gc)
            (osys gc_top)
            ))

  ;;; Loader
  ;;; Storage management must be present in order to use the loader.

  (define *loader-modules*
          '((osys dump_codes)
            (osys retrieve)
            (osys m68_comex)
            (osys load_comex)
            ))             ; this could come later

  (define *operation-dispatch-modules*
        '(
          (osys condition)    ; Exceptions
          (osys location)
          ))

  (define *ZVM-system*     ; VM with Z system
    (append
            *vm-modules*
            *z-system-modules*
            *garbage-collector*
            *loader-modules*
            *operation-dispatch-modules*
            '((osys unix)
              (osys z_undefined))
            ))



  (define *VM-system*      ; VM as a runtime library
    (append
            *vm-modules*
            *garbage-collector*
            *loader-modules*))

  ;;; Object and operation stuff


  ;;; Arithmetic - the order of arithmetic modules is important

  (define *arithmetic-modules*
          '((osys ratio)
            (osys mac_float)
            (osys ieee_float)
            (osys arith)
            (osys m68_bignum)
            (osys big_fixnum)
            (osys big_util)
            (osys bignum)
            (osys big_arith)
            (osys dispatch)
            (osys random)
            (osys equality)
            ;(osys single_float)
            ;(osys double-float)
            ;(osys complex)
            ))

  (define *file-system-modules*
        '(
         (osys port)
         (osys unix_port)
         (osys sort)
         (osys herald)
         (osys load)
         (osys dump)
         (osys dump_comex)
         ))


  ;; Syntax system
  (define *syntax-system-modules*
          '(
            (osys syntax)
            (osys pattern)
            (osys sp_form)
            (osys macros)        ; ENV calls MAKE-TABLE which calls GC_STAMP
;            (osys unix_macro)  ; macro's for foreign calls
            (osys cond)
            (osys let)
            (osys quasiquote)
            (osys object)       ; object macro
            (osys modify)
            ))

  (define *t-repl-modules*
      '((osys readtable)
        (osys recognize)
        (osys read)
        (osys sym_printer)
        (osys format)
        (osys pfloat)
        (osys eval)
        (osys repl)
        (osys fs_parse)
        (osys fs)
        (osys tree)
        (osys sets)
        (osys combinators)
        (osys transcript)
        (osys exports)
        (osys obsolete)
        (osys tsystem)
        ))


  (define *inspector-modules*
      '((osys crawl)
        (osys debug)
        (osys trace)
        (osys pp)
    (osys unix_timer)
        ))

  (define *t-system*
    (append
            *vm-modules*
            *z-system-modules*
            *garbage-collector*
            *loader-modules*
            *operation-dispatch-modules*
            '((osys unix))
            *arithmetic-modules*
            *file-system-modules*
            *syntax-system-modules*
            *inspector-modules*
            *t-repl-modules*
            ))

  (define *t-modules*
    (append *vm-modules*
            *z-system-modules*
            *garbage-collector*
            *loader-modules*
            *operation-dispatch-modules*
            *arithmetic-modules*
            *file-system-modules*
            *syntax-system-modules*
            *inspector-modules*
            *t-repl-modules*))


  (define *library-modules*
          '(
            (osys loop)
            (osys for)
            (osys moremaps)
            ))

  ;(osys dk)))  ;++ get rid of this
)